(tar-extract): Fix for the case that a file doesn't have end-of-line.
authorKenichi Handa <handa@m17n.org>
Mon, 9 Feb 2004 05:47:32 +0000 (05:47 +0000)
committerKenichi Handa <handa@m17n.org>
Mon, 9 Feb 2004 05:47:32 +0000 (05:47 +0000)
lisp/tar-mode.el

index dccbb6f82dfa41187799e30e8c98fe3bdb105793..0f0c22cabe13d911b88d0edf6ade144a44e879b7 100644 (file)
@@ -743,6 +743,7 @@ appear on disk when you save the tar-file's buffer."
                                 (min (+ (point-min) 16384) (point-max)) t)))
                  (if coding
                      (or (numberp (coding-system-eol-type coding))
+                         (vectorp (coding-system-eol-type detected))
                          (setq coding (coding-system-change-eol-conversion
                                        coding
                                        (coding-system-eol-type detected))))